object dmCompta: TdmCompta
  OldCreateOrder = True
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object tblPC: TTablePC
    Left = 24
    Top = 7
    object tblPCCompte: TStringField
      FieldName = 'Compte'
      Required = True
      Size = 13
    end
    object tblPCCycle: TIntegerField
      FieldName = 'Cycle'
    end
    object tblPCTypeEnr: TIntegerField
      FieldName = 'TypeEnr'
      Required = True
    end
    object tblPCDevise: TIntegerField
      FieldName = 'Devise'
    end
    object tblPCIntitule: TStringField
      FieldName = 'Intitule'
      Required = True
      Size = 35
    end
    object tblPCIntituleLong: TStringField
      FieldName = 'IntituleLong'
      Size = 70
    end
    object tblPCLettrable: TBooleanField
      FieldName = 'Lettrable'
    end
    object tblPCSupprime: TBooleanField
      FieldName = 'Supprime'
    end
    object tblPCVisa: TIntegerField
      FieldName = 'Visa'
    end
    object tblPCFlags: TIntegerField
      FieldName = 'Flags'
    end
    object tblPCDebit: TCurrencyField
      FieldName = 'Debit'
    end
    object tblPCCredit: TCurrencyField
      FieldName = 'Credit'
    end
    object tblPCSoldeNm1: TCurrencyField
      FieldName = 'SoldeNm1'
    end
    object tblPCSoldeNm2: TCurrencyField
      FieldName = 'SoldeNm2'
    end
    object tblPCSoldeNm3: TCurrencyField
      FieldName = 'SoldeNm3'
    end
    object tblPCSoldeNm4: TCurrencyField
      FieldName = 'SoldeNm4'
    end
    object tblPCCompteO: TStringField
      FieldName = 'CompteO'
    end
    object tblPCDebitSit: TCurrencyField
      FieldName = 'DebitSit'
    end
    object tblPCCreditSit: TCurrencyField
      FieldName = 'CreditSit'
    end
    object tblPCDebitTotal: TCurrencyField
      FieldName = 'DebitTotal'
    end
    object tblPCCreditTotal: TCurrencyField
      FieldName = 'CreditTotal'
    end
    object tblPCDrapeaux: TIntegerField
      FieldName = 'Drapeaux'
    end
    object tblPCIDImage: TIntegerField
      FieldName = 'IDImage'
    end
    object tblPCCompteAbrege: TStringField
      FieldName = 'CompteAbrege'
      Size = 5
    end
  end
  object tblHI: TTableHI
    Left = 80
    Top = 7
    object tblHIDateImputation: TDateField
      FieldName = 'DateImputation'
      Required = True
    end
    object tblHIAutoID: TAutoIncField
      FieldName = 'AutoID'
    end
    object tblHICompte: TStringField
      FieldName = 'Compte'
      Required = True
      Size = 13
    end
    object tblHICodeJournal: TStringField
      FieldName = 'CodeJournal'
      Required = True
      Size = 4
    end
    object tblHIPiece: TStringField
      FieldName = 'Piece'
      Size = 12
    end
    object tblHILettrage: TStringField
      FieldName = 'Lettrage'
      Size = 4
    end
    object tblHIFlagLettrage: TSmallintField
      FieldName = 'FlagLettrage'
    end
    object tblHIIDEcriture: TIntegerField
      FieldName = 'IDEcriture'
      Required = True
    end
    object tblHILibelleOperation: TStringField
      FieldName = 'LibelleOperation'
      Size = 35
    end
    object tblHIMontantO: TCurrencyField
      FieldName = 'MontantO'
      Required = True
    end
    object tblHIDevise: TIntegerField
      FieldName = 'Devise'
    end
    object tblHITaux: TFloatField
      FieldName = 'Taux'
    end
    object tblHIMontant: TCurrencyField
      FieldName = 'Montant'
      Required = True
    end
    object tblHIEstCrediteur: TBooleanField
      FieldName = 'EstCrediteur'
    end
    object tblHIDateEcheance: TDateField
      FieldName = 'DateEcheance'
    end
    object tblHIFlags: TIntegerField
      FieldName = 'Flags'
    end
    object tblHIIDImage: TIntegerField
      FieldName = 'IDImage'
    end
    object tblHIModePaiement: TSmallintField
      FieldName = 'ModePaiement'
    end
    object tblHIDateEP: TDateField
      FieldName = 'DateEP'
    end
    object tblHIReviseur: TIntegerField
      FieldName = 'Reviseur'
    end
    object tblHIReference: TIntegerField
      FieldName = 'Reference'
    end
  end
  object tblHITmp: TTableHITmp
    Filtered = True
    Left = 24
    Top = 63
    object tblHITmpCompte: TStringField
      FieldName = 'Compte'
      Required = True
      Size = 13
    end
    object tblHITmpLibelleOperation: TStringField
      FieldName = 'LibelleOperation'
      Size = 35
    end
    object tblHITmpPiece: TStringField
      FieldName = 'Piece'
      Size = 12
    end
    object tblHITmpDebit: TCurrencyField
      FieldName = 'Debit'
    end
    object tblHITmpCredit: TCurrencyField
      FieldName = 'Credit'
    end
    object tblHITmpIDLigne: TIntegerField
      FieldName = 'IDLigne'
    end
    object tblHITmpLettrage: TStringField
      FieldName = 'Lettrage'
      Size = 4
    end
    object tblHITmpRAOData: TStringField
      FieldName = 'RAOData'
    end
    object tblHITmpRAOIDLigne: TIntegerField
      FieldName = 'RAOIDLigne'
    end
    object tblHITmpEstNouvelleLigne: TBooleanField
      FieldName = 'EstNouvelleLigne'
    end
    object tblHITmpDesignation: TStringField
      FieldName = 'Designation'
      Size = 35
    end
    object tblHITmpCodeTVA: TStringField
      FieldName = 'CodeTVA'
      Size = 4
    end
    object tblHITmpTauxTVA: TFloatField
      FieldName = 'TauxTVA'
    end
    object tblHITmpDateEcheance: TDateField
      FieldName = 'DateEcheance'
    end
    object tblHITmpModePaiement: TSmallintField
      FieldName = 'ModePaiement'
    end
    object tblHITmpBanque: TStringField
      FieldName = 'Banque'
      Size = 13
    end
    object tblHITmpQuantite: TFloatField
      FieldName = 'Quantite'
    end
    object tblHITmpIDParam: TIntegerField
      FieldName = 'IDParam'
    end
    object tblHITmpFlagLettrage: TIntegerField
      FieldName = 'FlagLettrage'
    end
    object tblHITmpPieceExterne: TStringField
      FieldName = 'PieceExterne'
      Size = 12
    end
    object tblHITmpCodeAnalytik: TStringField
      FieldName = 'CodeAnalytik'
      Size = 8
    end
    object tblHITmpDateEP: TDateField
      FieldName = 'DateEP'
    end
    object tblHITmpIDImage: TIntegerField
      FieldName = 'IDImage'
    end
    object tblHITmpIDImageModifie: TBooleanField
      FieldName = 'IDImageModifie'
    end
    object tblHITmpDateDebPeriode: TDateField
      FieldName = 'DateDebPeriode'
    end
    object tblHITmpDateFinPeriode: TDateField
      FieldName = 'DateFinPeriode'
    end
  end
  object tblJnx: TTableJnx
    Left = 80
    Top = 64
    object tblJnxCode: TStringField
      FieldName = 'Code'
      Required = True
      Size = 4
    end
    object tblJnxIntitule: TStringField
      FieldName = 'Intitule'
      Required = True
      Size = 30
    end
    object tblJnxNature: TIntegerField
      FieldName = 'Nature'
    end
    object tblJnxFlags: TIntegerField
      FieldName = 'Flags'
    end
  end
  object tbl2H: CTable
    IndexFieldNames = 'AutoID'
    MasterFields = 'AutoID'
    MasterSource = DSHI
    TableName = 'revao$2h'
    Left = 144
    Top = 8
    object tbl2HAutoID: TIntegerField
      FieldName = 'AutoID'
    end
    object tbl2HRANDateO: TDateField
      FieldName = 'RANDateO'
    end
    object tbl2HRANJnlO: TStringField
      FieldName = 'RANJnlO'
      Size = 4
    end
    object tbl2HNaturePiece: TStringField
      FieldName = 'NaturePiece'
      Size = 8
    end
    object tbl2HPieceLiee: TStringField
      FieldName = 'PieceLiee'
      Size = 12
    end
    object tbl2HIDEcriturePart: TStringField
      FieldName = 'IDEcriturePart'
    end
    object tbl2HRAOData: TStringField
      FieldName = 'RAOData'
    end
    object tbl2HRAOIDLigne: TIntegerField
      FieldName = 'RAOIDLigne'
    end
    object tbl2HCodeTVA: TStringField
      FieldName = 'CodeTVA'
      Size = 4
    end
    object tbl2HTauxTVA: TFloatField
      FieldName = 'TauxTVA'
    end
    object tbl2HBanque: TStringField
      FieldName = 'Banque'
      Size = 13
    end
    object tbl2HQuantite: TFloatField
      FieldName = 'Quantite'
    end
    object tbl2HDesignation: TStringField
      FieldName = 'Designation'
      Size = 35
    end
    object tbl2HPieceExt: TStringField
      FieldName = 'PieceExt'
      Size = 12
    end
    object tbl2HCodeAnalytik: TStringField
      FieldName = 'CodeAnalytik'
      Size = 8
    end
    object tbl2HDateDebPeriode: TDateField
      FieldName = 'DateDebPeriode'
    end
    object tbl2HDateFinPeriode: TDateField
      FieldName = 'DateFinPeriode'
    end
  end
  object DSHI: TDataSource
    DataSet = tblHI
    Left = 144
    Top = 64
  end
  object qHI: TQuery
    DatabaseName = 'EIC_DOSSIER'
    Left = 24
    Top = 120
    object qHIIDEcriture: TIntegerField
      FieldName = 'IDEcriture'
      Origin = 'EIC_DOSSIER."REVAO$$H.DB".IDEcriture'
    end
    object qHICodeJournal: TStringField
      FieldName = 'CodeJournal'
    end
  end
  object tblHITmpExport: CTable
    TableName = '$$H_Export'
    EICTypeTable = ttTmp
    Left = 24
    Top = 176
    object tblHITmpExportDateOpe: TDateField
      FieldName = 'DateOpe'
    end
    object tblHITmpExportCodeJnl: TStringField
      FieldName = 'CodeJnl'
      Size = 4
    end
    object tblHITmpExportPiece: TStringField
      FieldName = 'Piece'
      Size = 12
    end
    object tblHITmpExportCompte: TStringField
      FieldName = 'Compte'
      Size = 13
    end
    object tblHITmpExportLibelleOpe: TStringField
      FieldName = 'LibelleOpe'
      Size = 35
    end
    object tblHITmpExportDebit: TCurrencyField
      FieldName = 'Debit'
    end
    object tblHITmpExportCredit: TCurrencyField
      FieldName = 'Credit'
    end
  end
end
